val2pal <- \(val) {
dplyr::case_when(
val >= 300 ~ "purple",
dplyr::between(val, 200, 300) ~ "red",
dplyr::between(val, 150, 200) ~ "yellow",
dplyr::between(val, 100, 150) ~ "green",
dplyr::between(val, 50, 100) ~ "blue",
dplyr::between(val, 1, 50) ~ "cyan",
.default = "gray"
) |>
col2rgb() |>
t() |>
rgb(maxColorValue = 255)
}




